; show the square of numbers range from START to END
(defun show-squares (start end)
	(do ((i start (+ i 1)))
		((> i end) 'done)
		(format t "~A ~A~%" i (* i i))))

(show-squares 2 5)
